home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / XCMDs / speak.p < prev    next >
Encoding:
Text File  |  1987-08-17  |  2.4 KB  |  102 lines  |  [TEXT/ttxt]
  1. {$R-}
  2.  
  3. (*
  4.     speak string[,phonemes?] -- Speak the string, either as text or as phonemes. If the last parameter is present,
  5.         use phonemes, otherwise translate the text in string into phonemes first.
  6.     By Harry Chesley.  DO NOT call the author!  Contact Apple Developer 
  7.     Support on AppleLink "MacDTS" or on MCI "MacTech".
  8.  
  9.     ©Apple Computer, Inc. 1987
  10.     All Rights Reserved.
  11.  
  12.     To compile and link this file using Macintosh Programmer's Workshop,
  13.  
  14.     pascal -w speak.p
  15.     pascal -w SpeechIntf.p
  16.     link -m ENTRYPOINT -o HyperSpeak -rt XCMD=0 -sn Main=speak speak.p.o SpeechIntf.o "{MPW}"Libraries:interface.o
  17.     
  18.     (You need a MacInTalk driver in your system folder to run this.)
  19. *)
  20.  
  21. {$S speak }     { Segment name must be the same as the command name. }
  22.  
  23. unit DummyUnit;
  24.  
  25. interface
  26.  
  27. uses MemTypes, QuickDraw, OSIntf, HyperXCmd, SpeechIntf;
  28.  
  29. procedure EntryPoint(paramPtr: XCmdPtr);
  30.     
  31. implementation
  32.  
  33. type
  34.  
  35. Str31 = String[31];
  36.  
  37. procedure speak(paramPtr: XCmdPtr); forward;
  38.  
  39. procedure EntryPoint(paramPtr: XCmdPtr);
  40.  
  41.     begin
  42.         speak(paramPtr);
  43.     end;
  44.  
  45. procedure speak(paramPtr: XCmdPtr);
  46.  
  47.     var portNumber: integer;
  48.         setting: integer;
  49.         inPort, outPort: integer;
  50.         str: Str255;
  51.  
  52.     {$I XCmdGlue.inc}
  53.  
  54.     procedure Fail(errMsg: Str255); { set theResult and quit }
  55.         begin
  56.             paramPtr^.returnValue := PasToZero(errMsg);
  57.             exit(speak);
  58.         end;
  59.  
  60.  
  61. var
  62.  
  63. SpeakHandle: SpeechHandle;
  64. usePhonemes: boolean;
  65. dummy: integer;
  66. theSpeech: Handle;
  67.  
  68. begin
  69.     if (paramPtr^.paramCount <> 1) and (paramPtr^.paramCount <> 2) then Fail('wrong number of parameters');
  70.     usePhonemes := paramPtr^.paramCount = 2;
  71.  
  72.     if SpeechOn('',SpeakHandle) = noErr then
  73.         begin
  74.             if GetHandleSize(paramPtr^.params[1]) > 1 then
  75.                 begin
  76.                     if usePhonemes then
  77.                         begin
  78.                             theSpeech := paramPtr^.params[1];
  79.                             if HandToHand(theSpeech) = noErr then
  80.                                 begin
  81.                                     SetHandleSize(theSpeech,GetHandleSize(theSpeech)-1);
  82.                                     dummy := MacinTalk(SpeakHandle,paramPtr^.params[1]);
  83.                                     DisposHandle(theSpeech);
  84.                                 end;
  85.                         end
  86.                     else
  87.                         begin
  88.                             theSpeech := NewHandle(0);
  89.                             HLock(paramPtr^.params[1]);
  90.                             if Reader(SpeakHandle,paramPtr^.params[1]^,GetHandleSize(paramPtr^.params[1])-1,theSpeech) = noErr then
  91.                                 dummy := MacinTalk(SpeakHandle,theSpeech);
  92.                             HUnlock(paramPtr^.params[1]);
  93.                             DisposHandle(theSpeech);
  94.                         end;
  95.                 end;
  96.             SpeechOff(SpeakHandle);
  97.         end
  98.     else Fail('SpeechOn failed');
  99. end;
  100.  
  101. end.
  102.